forrtl: severe (71): integer divide by zero

Stack trace terminated abnormally.